home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak - Disc 3 / Infomagic - Windows 3-Pak (Disc 3 of 3).iso / Telnet-Clients / HOSTACCESS.exe / MISC.1 / CITOH.MCR < prev    next >
Text File  |  1996-01-22  |  882b  |  42 lines
  1. rem simple macro to demonstrate loggin into a system
  2. rem which requires an account user name and then
  3. rem an application user name and password.
  4. rem
  5. DIM I as integer
  6. I=0
  7. rem 
  8. rem Wake up the connection vy sending CR
  9. send "CR"
  10. loopy:
  11. wait timeout 10
  12. rem
  13. rem when the login string appears then start the
  14. rem loop for limited retries.
  15. case "Please :"
  16.  I=I+1
  17.  if I > 3 then 
  18.     print "three attempts have been made to log on"
  19.     goto final
  20.  endif
  21.  rem
  22.  rem Send the user name and the carriage return
  23.  send "'PIXEL'CR"
  24.  delay 5
  25. rem
  26. rem when the string for the application login appears
  27. rem send the correct application username 
  28. case "Id:"
  29.  send "'SIMON'CR"
  30.  delay 5
  31. rem
  32. rem Case of when the string part of password appears
  33. rem when detected, send the password
  34. case "word:"
  35.  send "' 'CR"
  36.  delay 5
  37.  timeout : goto final
  38. end wait
  39. goto loopy
  40. final:
  41. end
  42.